5 DV=PEEK(186):IFDV<8THENDV=8
10 IFFRE(0)<>FRE(1)THEN(null)"SERENDIPITY":SYS5000
15 PRINT"[147]STARGATE"
16 POKE53280,0:POKE53281,0:POKE646,0
17 FORX=8TO9:OPEN15,X,15,"U0>M0":CLOSE15:NEXT
20 PRINT"LOAD"CHR$(34)"STAR LOADER"CHR$(34)","DV
30 PRINT"RUN":POKE198,2:POKE631,13:POKE632,13:END
59999 END
60000 OPEN15,8,15,"S0:STARGATE":CLOSE15:SAVE"STARGATE",8